unit oSpawn;

interface

uses oLogicalEntity, XMLIntf, oPolygon,
oPhysicalEntity,oEntityTypeConstants, oIstoreable;

type
  TSpawn = class(TLogicalEntity)
    public
      destructor Destroy; override;
      procedure save(paKam: IXMLNode;paKtory: Integer);
      function vypis:String;
      procedure SaveToXML(var paNode : Ixmlnode); override;
      procedure LoadFromXML(paNode : IXMLNode); override;
      constructor Create(paName : string; paId : integer); overload;
      constructor Create; overload;
  end;

implementation

uses SysUtils;

{ TSpawn }

constructor TSpawn.Create;
begin
   inherited Create;
   TypeLogic := ET_SPAWN_TYPE;
end;

constructor TSpawn.Create(paName: string; paId: integer);
begin
  Create;
  inherited Create(paName, paId);
end;

destructor TSpawn.destroy;
begin
  inherited;
end;

procedure TSpawn.LoadFromXML(paNode: IXMLNode);
begin
  inherited LoadFromXML(paNode.ChildNodes['log_entity']);
end;

procedure TSpawn.save(paKam: IXMLNode; paKtory: Integer);
var temp: IXMLNode;
begin
  temp := paKam.AddChild('spawn_' + inttostr(paKtory));
end;

procedure TSpawn.SaveToXML(var paNode: Ixmlnode);
var
  n, n1 : IXMLNode;
begin
  n := paNode.AddChild('spawn');
 inherited SaveToXML(n);
end;

function TSpawn.vypis: String;
begin
end;
end.
